﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
IF  Request.QueryString("Action")="login" Then
	call login
else
	call index
end if
end Function



Function index
	dim Runtxt,rs,sql,na,name,id
	Runtxt=qingtian.RunStr
    		id = Request("id")      '当前页数
    		If id = "" Then id = 1
   		If Not IsNumeric(id) Then id = 1
    		id = CLng(id)
		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select  * FROM qingtian_conjib where id="&id&""
		rs.open sql,conn,1,1
                if not (rs.bof and rs.eof)  then
			name=rs("name")
			na=rs("na")
                end if
		rs.Close
		Set rs = Nothing
%>
	<card title="修改头衔"><p align="left">

	头衔名称：<br/>
	<input emptyok="true"  name="name<%=Runtxt%>" value="<%=qingtian.FormatEdit(name)%>" type="text"/><br/>
	对应积分：<br/>
	<input emptyok="true"  name="na<%=Runtxt%>" value="<%=qingtian.FormatEdit(na)%>" type="text"/><br/>
	<anchor>确定提交
    	<go href="editconjib.asp?id=<%=id%>&amp;Action=login&amp;sid=<%=sid%>" method='post'>
        <postfield name="name" value="$(name<%=Runtxt%>)"/>
        <postfield name="na" value="$(na<%=Runtxt%>)"/>
    	</go>
	</anchor><br/>
-------------<br/>
<a href='conjib.asp?sid=<%=sid%>'>返回头衔管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
End Function


Function login

		dim name,rs,sql,errs,na,id
		name=trim(Request.form("name"))
		na=Request.form("na")
    		id = Request("id")      '当前页数
    		If id = "" Then id = 1
   		If Not IsNumeric(id) Then id = 1
    		id = CLng(id)
		errs=""
		if name="" or na="" then errs=errs & "关键名称不能为空<br/>"
	%>
	<card id="login" title="修改头衔" ontimer="conjib.asp?sid=<%=sid%>"><timer value="20"/>
		<p align="left">
	<%
	IF len(errs)=0 then


		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select  * FROM qingtian_conjib where id="&id&""
		rs.open sql,conn,1,3
                if not (rs.bof and rs.eof)  then
			rs("name")=name
			rs("na")=na
		rs.update()
                end if
		rs.Close
		Set rs = Nothing
		%>修改头衔成功!<br/><a href="editconjib.asp?id=<%=id%>&amp;sid=<%=sid%>">返回继续修改</a><br/><%

	else%>
		<%=errs%>
		<a href="editconjib.asp?id=<%=id%>&amp;sid=<%=sid%>">返回修改</a><br/>
<%	end if
%>
<a href='conjib.asp?sid=<%=sid%>'>返回头衔管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 


%>
